﻿Public Class ucTratadoras

    Private Sub btnAlta_Click(sender As Object, e As EventArgs) Handles btnAlta.Click

        Dim f As New frmTratadoraAlta
        f.ShowDialog(Me)


        'Actualizo grilla
        'mnuPrincipal.btnTratadoras_Click(sender, e) Esto no actualizaba por cuestiones de User Control
        cn.LlenarGrilla(varUcTratadoras.dgvTratadoras, sqlConsulta)

    End Sub

    Private Sub btnModificacion_Click(sender As Object, e As EventArgs) Handles btnModificacion.Click

        Dim f As New frmTratadoraModificacion
        f.ShowDialog(Me)


        'Actualizo grilla
        'mnuPrincipal.btnTratadoras_Click(sender, e) Esto no actualizaba por cuestiones de User Control
        cn.LlenarGrilla(varUcTratadoras.dgvTratadoras, sqlConsulta)

    End Sub

    Private Sub btnProcesar_Click(sender As Object, e As EventArgs) Handles btnProcesar.Click
        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor

        'Seteo variable global del id de la tratadora que voy a usar para procesar el archivo
        varIdTratadora = dgvTratadoras.SelectedRows(0).Cells("Id").Value
        varNombreTratadora = dgvTratadoras.SelectedRows(0).Cells("Modelo").Value & "-" & dgvTratadoras.SelectedRows(0).Cells("Serie").Value

        Dim f As New frmTratadoraProcesar
        f.lblTitulo.Text = "TRATADORA: " & dgvTratadoras.SelectedRows(0).Cells("Modelo").Value & " - SERIE: " & dgvTratadoras.SelectedRows(0).Cells("Serie").Value
        f.lblLoteNumero.Text = 0
        f.lblBatchNumero.Text = 0
        f.lblCalibracionNumero.Text = 0
        f.lblEventosNumero.Text = 0
        f.lblAlarmasNumero.Text = 0
        f.ShowDialog()

        Me.Cursor = System.Windows.Forms.Cursors.Default
    End Sub
End Class
